# Usage: naval.tcl

if {![info exists eWorkDir]} {set eWorkDir [file dirname [info script]]}

package require DPeye

create {
	outputFile naval.ps 
	images {
		sailing {naval3.bmp {trace 1 1}}
	}
	locationTypes {
		ShapePoints {number 1}
	}
	locations {
		dots {image {sailing red} ShapePoints x Blue}
	}
	shapes {
		contour {dots {line {
			{56 0 -1} 54 52 51 48 
			49 43 {45 1} {48 1 -1} {48 0 -1} 45 
			39 28 20 {21 1} 
 			{15 1} {14 1} {14 0 1} {15 1 1} {8 1 2} {9 0 2} {16 0 1} {17 1 1} 17 16 22
			23 29 34 35 {32 1 1} {31 -2} 27 11 {10 0 -2}
			{4 0 -1} {3 2 -1} {3 1} 4 1 {1 1} {2 -1 -1} {5 -2} 6 {6 -1 -1} {5 -2 -1} {12 -2}
			{13 -1} {36 3 3} {36 -2 3} {36 -2} {36 1} 24 25 
			{18 -1 -1} {13 -1 -2} {13 -1 -1} {18 -1} 7 {7 1} 18 19 {19 -1 -1} {18 0 -1} {25 1}
			26 37 38 33 30 44 41 46 47 50 53 55 57 58
		}}}
	}
	borders {
		naval {shape contour Yellow Border {Black 5}}
	}
	$MapDrawingScale .1
	frame none arrows 0
}